Je spusteny FB1.5? (druhy pokus)
Otázka od: Andreas Bednarek
13. 10. 2004 9:59
Zdravim, zkusim jeste jednou s nadeji ze se nekdo chytne...
muzete mi prosim poradit jak ve sve D4 aplikaci zjistim zda je spusteny db
server Firebird1.5 a o jakou verzi se presne jedna?
Nejlepe pro systemy W98, 2k, XP ale alespon pro 2k, XP.
Dekuji za radu
A.B.
Odpovedá: Dalibor
15. 10. 2004 6:47
Dalo by se to zjistovat treba takhle
function BeziFirebirdServer : boolean;
var i : integer;
begin
i:=FindWindow('IB_Server',nil);
if i=0 then i:=FindWindow('FB_Server', nil) ;
if i=0 then i:=FindWindow('FB_Inet_server.exe', nil) ;
if i=0 then i:=FindWindow('fbguard', nil) ;
result:=i<>0;
end;
> muzete mi prosim poradit jak ve sve D4 aplikaci zjistim zda je spusteny db
server Firebird1.5 a o jakou verzi se presne jedna?
>
>
> Nejlepe pro systemy W98, 2k, XP ale alespon pro 2k, XP.
>
> Dekuji za radu
> A.B.
>
Odpovedá: Milan Tomes
15. 10. 2004 7:06
Ja to delam takto:
1. snazim se o pripojeni na port 3050 (popr. jiny dle konfigurace) - tusim,
ze je to primo doporuceny postup v dokumentaci
2. Verzi serveru s pripade korektniho pripojeni zjistit pomoci
TIBDatabaseInfo z IBX - property Version
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Dalibor
> Sent: Friday, October 15, 2004 7:47 AM
>
> > muzete mi prosim poradit jak ve sve D4 aplikaci zjistim zda je
> spusteny db
> server Firebird1.5 a o jakou verzi se presne jedna?
Odpovedá: Andreas Bednarek
15. 10. 2004 10:27
Ahoj,
FindWindow?
nemelo by to byt spise nejake FindServiceName() nebo tak neco?
A.B.
----- Original Message -----
From: "Dalibor" <dalibor@torola.cz>
To: <delphi-l@clexpert.cz>
Sent: Friday, October 15, 2004 7:47 AM
Subject: Re: Je spusteny FB1.5? (druhy pokus)
> Dalo by se to zjistovat treba takhle
>
> function BeziFirebirdServer : boolean;
> var i : integer;
> begin
> i:=FindWindow('IB_Server',nil);
> if i=0 then i:=FindWindow('FB_Server', nil) ;
> if i=0 then i:=FindWindow('FB_Inet_server.exe', nil) ;
> if i=0 then i:=FindWindow('fbguard', nil) ;
> result:=i<>0;
> end;
>
>